home *** CD-ROM | disk | FTP | other *** search
- VERSION 2.00
- Begin Form AboutBox
- AutoRedraw = -1 'True
- BackColor = &H00808000&
- BorderStyle = 1 'Fixed Single
- Caption = "About"
- ClientHeight = 4350
- ClientLeft = 2655
- ClientTop = 2760
- ClientWidth = 4065
- ControlBox = 0 'False
- Height = 4755
- Left = 2595
- LinkMode = 1 'Source
- LinkTopic = "Form2"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 4350
- ScaleWidth = 4065
- Top = 2415
- Width = 4185
- Begin PictureBox Label3D1
- BackColor = &H000000FF&
- Height = 1000
- Left = 0
- ScaleHeight = 975
- ScaleWidth = 975
- TabIndex = 0
- Top = 0
- Width = 1000
- Begin CommandButton AboutOk
- Caption = "&OK"
- Default = -1 'True
- Height = 492
- Left = 840
- TabIndex = 6
- Top = 3480
- Width = 2172
- End
- Begin Line Line1
- X1 = 120
- X2 = 3720
- Y1 = 2520
- Y2 = 2520
- End
- Begin Label Label1
- Alignment = 2 'Center
- AutoSize = -1 'True
- BackColor = &H00808000&
- Caption = "Camarillo, CA 93012-5425 USA"
- Height = 240
- Index = 10
- Left = 372
- TabIndex = 11
- Top = 2160
- Width = 3204
- End
- Begin Label Label1
- Alignment = 2 'Center
- AutoSize = -1 'True
- BackColor = &H00808000&
- Caption = "5241 Mission Oaks Blvd., #377"
- Height = 240
- Index = 9
- Left = 444
- TabIndex = 10
- Top = 1920
- Width = 3084
- End
- Begin Label Label1
- Alignment = 2 'Center
- AutoSize = -1 'True
- BackColor = &H00808000&
- Caption = "FAX: (805) 482-6213"
- Height = 240
- Index = 8
- Left = 936
- TabIndex = 9
- Top = 1560
- Width = 2100
- End
- Begin Label Label1
- Alignment = 2 'Center
- AutoSize = -1 'True
- BackColor = &H00808000&
- Caption = "UNREGISTERED COPY"
- ForeColor = &H000000C0&
- Height = 240
- Index = 5
- Left = 720
- TabIndex = 8
- Top = 3000
- Width = 2364
- End
- Begin Label Label1
- Alignment = 2 'Center
- AutoSize = -1 'True
- BackColor = &H00808000&
- Caption = "REGISTERED TO:"
- Height = 252
- Index = 4
- Left = 960
- TabIndex = 7
- Top = 2640
- Width = 1932
- End
- Begin Label Label1
- Alignment = 2 'Center
- AutoSize = -1 'True
- BackColor = &H00808000&
- Caption = "GetMoney Version"
- Height = 195
- Index = 0
- Left = 1140
- TabIndex = 5
- Top = 120
- Width = 1575
- End
- Begin Label Label1
- Alignment = 2 'Center
- AutoSize = -1 'True
- BackColor = &H00808000&
- Caption = "
- Copyright 1993, Graphic Impact"
- Height = 240
- Index = 1
- Left = 288
- TabIndex = 4
- Top = 360
- Width = 3396
- End
- Begin Label Label1
- Alignment = 2 'Center
- AutoSize = -1 'True
- BackColor = &H00808000&
- Caption = "All Rights Reserved"
- Height = 240
- Index = 2
- Left = 924
- TabIndex = 3
- Top = 600
- Width = 2004
- End
- Begin Label Label1
- Alignment = 2 'Center
- AutoSize = -1 'True
- BackColor = &H00808000&
- Caption = "Compuserve at 73027,3307"
- Height = 240
- Index = 3
- Left = 624
- TabIndex = 2
- Top = 1320
- Width = 2724
- End
- Begin Label Label1
- Alignment = 2 'Center
- AutoSize = -1 'True
- BackColor = &H00808000&
- Caption = "Michael Haschka:"
- Height = 240
- Index = 7
- Left = 1056
- TabIndex = 1
- Top = 960
- Width = 1812
- End
- End
- Sub AboutOk_Click ()
- Unload AboutBox
- End Sub
- Sub Form_DblClick ()
- Unload AboutBox
- End Sub
- Sub Form_Load ()
- Left = (Screen.Width - Width) \ 2
- Top = (Screen.Height - Height) \ 2
- Label1(0).Caption = "GetMoney Version " + Versnum$
- Label3D1.BorderThickness = 1
- If RegStat = SerialNum$ Then
- Label1(5).Caption = First + " " + Last
- End If
- End Sub
-